home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / printing / 1stw2ps.arc / 1STW2PS.INI < prev    next >
Text File  |  1988-06-13  |  7KB  |  131 lines
  1. %!PS-Adobe-1.0
  2. %%DocumentFonts: Courier Courier-Bold Courier-Oblique Courier-BoldOblique Symbol
  3. %%Pages:(atend)
  4. %%Creator: 1stw2ps V3.11
  5. %%EndComments
  6. /reencsmalldict 12 dict def
  7. /ReEncodeSmall{reencsmalldict begin/newcodesandnames exch def
  8. /newfontname exch def/basefontname exch def
  9. /basefontdict basefontname findfont def/newfont basefontdict maxlength dict def
  10. basefontdict{exch dup/FID ne{dup/Encoding eq
  11. {exch dup length array copy newfont 3 1 roll put}
  12. {exch newfont 3 1 roll put}ifelse}
  13. {pop pop}ifelse}forall
  14. newfont/FontName newfontname put newcodesandnames aload pop
  15. newcodesandnames length 2 idiv{newfont/Encoding get 3 1 roll put}repeat
  16. newfontname newfont definefont pop end}def
  17. /wordplusvec[8#200/Ccedilla 8#201/udieresis 8#202/eacute 8#203/acircumflex
  18. 8#204/adieresis 8#205/agrave 8#206/aring 8#207/ccedilla 8#210/ecircumflex
  19. 8#211/edieresis 8#212/egrave 8#213/idieresis 8#214/icircumflex 8#215/igrave
  20. 8#216/Adieresis 8#217/Aring 8#220/Eacute 8#221/ae 8#222/AE 8#223/ocircumflex
  21. 8#224/odieresis 8#225/ograve 8#226/ucircumflex 8#227/ugrave 8#230/ydieresis
  22. 8#231/Odieresis 8#232/Udieresis 8#233/cent 8#234/sterling 8#235/yen
  23. 8#236/germandbls 8#237/florin 8#240/aacute 8#241/iacute 8#242/oacute
  24. 8#243/uacute 8#244/ntilde 8#245/Ntilde 8#250/questiondown 8#255/dotlessi
  25. 8#256/guillemotleft 8#257/guillemotright 8#260/atilde 8#261/otilde 
  26. 8#262/Oslash 8#263/oslash 8#264/oe
  27. 8#265/OE 8#266/Agrave 8#267/Atilde 8#270/Otilde 8#271/dieresis 8#272/acute
  28. 8#273/dagger 8#274/paragraph 8#335/section 8#355/Oslash]def
  29. /wordplussymvec [8#275/copyrightsans 8#276/registersans 8#277/trademarksans
  30. 8#302/aleph 8#336/logicaland 8#337/infinity 8#340/alpha 8#341/beta 8#342/Gamma
  31. 8#343/pi 8#344/Sigma 8#345/sigma 8#346/mu 8#347/tau 8#350/Phi 8#351/Theta
  32. 8#352/Omega 8#353/delta 8#356/element 8#357/intersection 8#360/equivalence
  33. 8#361/plusminus 8#362/greaterequal 8#363/lessequal 8#364/integraltp
  34. 8#230/integralex 8#365/integralbt 8#366/divide
  35. 8#367/approxequal 8#370/degree 8#371/bullet 8#372/dotmath 8#373/radical]def
  36. /Courier/CN wordplusvec ReEncodeSmall
  37. /Courier-Bold/CB wordplusvec ReEncodeSmall
  38. /Courier-Oblique/CO wordplusvec ReEncodeSmall
  39. /Courier-BoldOblique/CBO wordplusvec ReEncodeSmall
  40. /symmet [/Phi [-70 600]/Gamma [-4 600]/trademarksans [-62 600]/Sigma [5 600]
  41. /radical [42 600]/infinity [-44 600]/mu [16 600]/delta [59 600]
  42. /Omega [-67 600]/sigma [5 600]/intersection [-66 600]/greaterequal [36 600]
  43. /degree [124 600]/dotmath [215 600]/divide [32 600]/lessequal [36 600]
  44. /element [47 600]/tau [90 600]/pi [35 600]/beta [42 600]/alpha [-11 600]
  45. /logicaland [8 600]/approxequal [36 600]/plusminus [30 600]/Theta [-57 600]
  46. /aleph [-30 600]/registersans [-70 600]/copyrightsans [-69 600]/equivalence 
  47. [31 600]/bullet [95 600] /integraltp [255 600]/integralex [255 600]
  48. /integralbt [-38 600] /space [0 600]]def
  49. /Symbol findfont  dup length 1 add dict /newdict exch def
  50. {1 index dup dup /FID ne exch /FontBBox ne and exch /Encoding ne and
  51. {newdict 3 1 roll put}{pop pop}ifelse}forall
  52. /newFontBBox /Symbol findfont /FontBBox get aload length array astore def
  53. newdict /FontBBox newFontBBox put
  54. /NewEnc /Symbol findfont /Encoding get aload length array astore def
  55. wordplussymvec aload pop wordplussymvec length 2 idiv {NewEnc 3 1 roll put}
  56. repeat newdict /Encoding NewEnc put symmet length 2 idiv dict begin
  57. symmet aload pop symmet length 2 idiv { def} repeat
  58. newdict /Metrics currentdict put end
  59. /symbol newdict definefont pop
  60. /aws 0 def/top 780 def/lfn 100 def/fontsize 11 def/np 2 string def
  61. /npv 3 string def/und false def/nonewline false def
  62. /nl{nonewline{currentpoint exch pop LM exch moveto/nonewline false def}
  63. {currentpoint exch pop lineh sub LM exch moveto}ifelse}def
  64. /endpage{LM bottom moveto/fontsize fontsizehead def/cpl cplhead def
  65. rmset swap{flf fl fcf fc frf fr}{frf fr fcf fc flf fl}ifelse wrl 
  66. showpage}def
  67. /startpage {/pn exch def /fontsize fontsizehead def /cpl cplhead def rmset
  68. tof 1 1 tma{pop nl}for 1 eq{/swap true def hlf hl hcf hc hrf hr}
  69. {/swap false def hrf hr hcf hc hlf hl}ifelse wrl 1 1 hma{pop nl}for
  70. currentpoint exch pop LM exch moveto/fontsize exch def
  71. /cpl exch def rmset}def
  72. /wrl{wl dup RM LM sub exch stringwidth pop sub 2 div LM add currentpoint
  73. exch pop moveto wl dup RM exch stringwidth pop sub currentpoint exch pop moveto
  74. wl}def
  75. /wl{/line exch def fs/ll line length def 0 1 ll 1 sub{line exch 1 getinterval
  76. dup(#)eq{pn 99 gt{pop pn npv cvs show}{pop pn np cvs show}ifelse}
  77. {show}ifelse}for}def/tof{LM top moveto}def
  78. /bl{0 0 1 as length 1 sub{/ind exch def ac ind get fs as ind get stringwidth
  79. pop add}for}def
  80. /blw{sp 0 eq{/lws 0 def}{RM currentpoint pop sub bl sub sp div/lws exch def}
  81. ifelse}def 
  82. /pl{/ac exch def
  83. /as exch def/just exch def just 1 eq{/ju true def}{/ju false def}ifelse
  84. /sp exch def/spv exch def 0 fs 1 1 spv{pop( )show}for ju{blw}{/lws 0 def}
  85. ifelse 0 1 as length 1 sub{/ind exch def ac ind get dup fs 8 and 8 eq
  86. {und{}{currentpoint/ys exch def/xs exch def/und true def}ifelse}
  87. {und{drawund/und false def}{}ifelse}ifelse
  88. sup{0 fontsize 2 div rmoveto}if lws 0 8#040 aws 0 as ind get awidthshow
  89. sup{0 fontsize 2 div neg rmoveto}if}for
  90. und{drawund/und false def}{}ifelse nl}def
  91. /drawund {currentgray .0 setgray currentpoint pop dup as ind get dup
  92. length dup 0 eq {pop pop pop}{1 sub get ( ) 0 get eq
  93. {( )stringwidth pop sub lws sub}if .2 setlinewidth xs ys 1 sub moveto 
  94. ys 1 sub lineto stroke}ifelse ys moveto setgray}def
  95. /fs{/fn exch def fn 1 and 0 eq fn 4 and 0 eq and{/CN}if
  96. fn 1 and 1 eq fn 4 and 0 eq and{/CB}if
  97. fn 4 and 4 eq fn 1 and 0 eq and{/CO}if
  98. fn 4 and 4 eq fn 1 and 1 eq and{/CBO}if
  99. fn 64 and 64 eq {pop /symbol} if
  100. findfont fontsize scalefont setfont fn 2 and 2 eq{.5 setgray}
  101. {.0 setgray}ifelse fn 16 and 16 eq{/sup true def}
  102. {/sup false def}ifelse
  103. fn 32 and 32 eq{/ssc true def}{/ssc false def}ifelse sup ssc or
  104. {currentfont[1 0 0 .5 0 0]makefont setfont}if}def
  105. /ini{/fr exch def/fc exch def/fl exch def/hr exch def/hc exch def
  106. /hl exch def 0 fs/LM LM( )stringwidth pop mul 70 add def
  107. rmset/bottom top pal bma sub 1 sub lineh mul sub def
  108. /fontsizehead fontsize def/cplhead cpl def}def
  109. /rmset{0 fs/RM( )stringwidth pop cpl mul LM add def}def
  110. /hs 64 string def /rh{currentfile hs readhexstring pop/hs exch def
  111. /i1 0 def}def /ti{i1 63 gt{rh}if}def
  112. /i1+1{/i1 i1 1 add def}def /i2+1{/i2 i2 1 add def}def
  113. /pb{16#ff xor /full false def os i2 3 -1 roll put i2+1 i2 bpr ge
  114. {/full true def po}if}def
  115. /po{/rc rc 1 sub def os/i2 0 def/klaar true def exit}def
  116. /gb{/full false def ti hs i1 get i1+1}def
  117. /pi{{klaar{exit}if rc 0 gt full and{po}if gb dup 0 eq{pop gb dup 0 eq
  118. {pop gb pop gb/rc exch def}{/b1 gb def/b2 gb def 1 1 3 -1 roll
  119. {pop b1 pb b2 pb}for}ifelse}{dup 16#80 eq{pop gb 1 1 3 -1 roll{pop gb pb}for}
  120. {dup 16#7f and/bc exch def 16#80 and 0 ne{1 1 bc{pop 16#ff pb}for}
  121. {1 1 bc{pop 16#00 pb}for}ifelse}ifelse}ifelse}loop/klaar false def}def
  122. /doimage{/right exch def currentpoint 1 1 right{pop( )show}for
  123. currentpoint/cy exch lineh .5 mul add def/cx exch def
  124. rh/xbyte hs 12 get 256 mul hs 13 get add def
  125. /bpr xbyte 8 div ceiling cvi def/xbyte bpr 8 mul def/os bpr string def
  126. /ybyte hs 14 get 256 mul hs 15 get add 1 sub def/i1 16 def
  127. gsave cx cy translate xbyte 7.2 8 div mul ybyte lineh 12 div mul scale
  128. /i2 0 def /full false def /rc 0 def/klaar false def
  129. xbyte ybyte 1[xbyte 0 0 ybyte neg cvi 0 0]{pi}image grestore moveto} def
  130.  
  131.